home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / virus / FastKiller.lha / ScanDirs < prev   
Text File  |  1997-08-19  |  1KB  |  39 lines
  1. .Bra {
  2. .Ket }
  3. .Key DIRECTORY/A,QUIET/S,NOSAVE/S
  4.  
  5. ; First, we just do a memory clean. (Also self cleans FastVirusKiller)
  6. FastVirusKiller
  7.  
  8. ;Memory is clean, so now we make it resident, to speed things up a little.
  9. Resident FastVirusKiller FORCE
  10.  
  11. ;Make sure the commands this script uses are clean ;-)
  12. If exists C:List
  13.     FastVirusKiller C:List QUIET
  14. Endif
  15. If exists C:Execute
  16.     FastVirusKiller C:Execute QUIET
  17. Endif
  18. If exists C:Delete
  19.     FastVirusKiller C:Delete QUIET
  20. EndIf
  21. If exists C:Protect
  22.     FastVirusKiller C:Protect QUIET
  23. Endif
  24.  
  25. Echo ------------------------------------------------------------
  26. Echo $VER: ScanDirs v1.3
  27. Echo © 1997 Dave Jones. Part of the FastVirusKiller distribution.
  28. Echo ------------------------------------------------------------
  29. Echo Scanning {DIRECTORY}...
  30.  
  31. ;Build a script to recursively scan the entire harddisk.
  32. C:List {DIRECTORY} LFORMAT "FastVirusKiller %p%n {QUIET} {NOSAVE}" ALL FILES NOHEAD PAT=~(#?.info|#?.lha|#?.lzx||#?.zip|#?.iff|#?.mod|#?.gif|#?.jpg|#?.jpeg|#?.library|#?.device) >T:FK.tmp
  33. C:Execute T:FK.tmp
  34. Echo Scanning Complete.
  35.  
  36. ;Clean up ;-)
  37. C:Delete T:FK.tmp QUIET
  38. Resident FastVirusKiller Remove
  39.